10 FORA=679TO743:READB:CH=CH+B:POKEA,B:NEXT:IFCH<>5899THENPRINT"DATA ERROR":END
20 POKE785,167:POKE786,2:PRINT"[147]ACTIVATED"
30 DATA 32,247,183,165,20,201
40 DATA 3,176,26,73,3,170
50 DATA 189,255,219,41,15,133
60 DATA 2,169,15,56,229,2
70 DATA 170,189,221,2,168,169
80 DATA 0,32,145,179,96,160
90 DATA 0,41,1,170,189,0
100 DATA 220,41,16,208,1,200
110 DATA 169,0,32,145,179,96
120 DATA 0,1,3,0,4,8,7,0,2,5,6